至顶网›软件频道 ›VB应用程序访问SQL Server方法探讨

VB应用程序访问SQL Server方法探讨

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

Visual Basic应用程序访问SQL Server数据的几种常用的方法，分别说明了每种方法的内部机理，并对每种方法都给出了一个简单的实例，最后比较了每种方法的性能和优缺点......

作者：佚名来源：VB编程乐园 2007年10月23日

摘要　本文讨论了Visual Basic应用程序访问SQL Server数据的几种常用的方法，分别说明了每种方法的内部机理，并对每种方法都给出了一个简单的实例，最后比较了每种方法的性能和优缺点。

　　引言 Microsoft Visual Basic(简称VB)作为一种面向对象的可视化编程工具，具有简单易学的，灵活方便和易于扩充的特点。而且Microsoft为其提供了与SQL Server通信的API函数集及工具集。因此它越来越多地用作大型公司数据和客户机—服务器应用程序的前端。与后端的Microsoft SQL Server相结合，VB能够提供一个鲁棒的、高性能的客户机—服务器方案。使用Visual Basic作为前端开发语言，与SQL Server接口有三种常用的方法，即：

　　*数据访问对象/Jet
　　*为ODBC API编程
　　*使用SQL Server的Visual Basic库(VBSQL)为DB库API编程

　　本文将讨论这三种VB应用程序管理SQL Server数据的方法，并比较每种方法的性能和优缺点。

　方法1.数据访问对象/JetVisual Basic支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它确有许多优点。使用DAOs访问SQL Server的过程如下：

　　应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通地调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。

Form Declarations
Dim mydb As Database
Dim mydynaset As Dynaset
Private Sub Form_Load()
Set mydb=OpenDatabase("",False,False,"ODBC;DSN=Myserver;WSID=LCL;DATABASE=sales")
Set mydynaset=mydb CreateDynaset("Select*from Customers")

　　End Sub 上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。

　　方法2.用ODBC API编程

　　ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器反过来通来驱动器(SQLSRVR.DLL)把它们送到服务器中。用ODBC API编程，一般要用到以下一些函数。下面列出了常用的函数以及它们的功能。

　　　　函数　　　　　　　　　功能
　　　　SQLALLocEnv　　　　　　初始化ODBC环境，返回环境句柄
　　　　SQLALLocConnect　　　　为连接句柄分配内存并返回连接句柄
　　　　SQLConnect　　　　　　连接一个SQL数据资源
　　　　SQLDriverConnect　　　连接一个SQL数据资源，允许驱动器向用户询问信息
　　　　SQLALLocStmt　　　　　为语句句柄分配内存并返回语句句柄
　　　　SQLExecDirect　　　　　把SQL语句送到服务器
　　　　SQLFetchAdvances　　　到结果集的下一行(或第一行)
　　　　SQLGetData　　　　　　从结果集的特定的一列取回数据
　　　　SQLFreeStmt　　　　　　释放与语句句柄相关的资源
　　　　SQLDisconnect　　　　　切断连接
　　　　SQLFreeConnect　　　　释放与连接句柄相关的资源
　　　　SQLFreeEnv　　　　　　释放与环境句柄相关的资源

下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。

Global giHEnv As Long
Global giHDB As Long
Global giHStmt As Long
Dim myResult As integer
Dim myConnection As Srting
Dim myBuff As String*256
Dim myBufflen As Integer
If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then
MsgBox"Allocation couldn't happen!"
End if
if SQLllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then
MsgBox "SQL Server couldn't connect!"
End if
myConnection="DSN=myServer;UID=lcl;PWD=;APP=ODBCTest;WSlD=LCL;DATABASE=sales"
myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),
myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)
myResult=SQLAllocStmt(giHDS,giHStmt)
myResult=SQLFreeStmt(giHStmt,SQL_COLSE)
rsSQL="Select*from Customers Where City="Wuhan""
myResult=SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))

VB应用程序访问SQL Server方法探讨

VIP专区

VIP用户

普通用户

闂傚倸鍊风欢锟犲矗鎼淬劌绐楅柡鍥╁亹閺嬪酣鏌曡箛瀣仾濠殿垰銈搁弻鏇＄疀鐎ｎ亖鍋撻弽顓ㄧ稏闁跨噦鎷�

婵犵數濮烽。浠嬪焵椤掆偓閸熷潡鍩€椤掆偓缂嶅﹪骞冨Ο璇茬窞闁归偊鍓涢悾娲⒑闂堟单鍫ュ疾濠婂嫭鍙忔繝濠傜墛閸嬨劍銇勯弽銊с€掗柟钘夊暣閺岀喖鎮滈埡鍌涚彋閻庤娲樺畝绋跨暦閸洖鐓涢柛灞剧矋濞堟悂姊绘担绛嬪殐闁搞劋鍗冲畷銏ゅ冀椤愩儱小闂佹寧绋戠€氼參宕伴崱妯镐簻闁靛牆鎳庢慨顒€鈹戦埥鍡椾簼婵犮垺锚铻炴俊銈呮噺閸嬪倹绻涢崱妯诲碍閻庢艾顦甸弻宥堫檨闁告挾鍠庨锝夘敆娓氬﹦鐭楁繛鎾村焹閸嬫捇鏌ｅ☉娆愬磳闁哄本绋戦埞鎴﹀川椤曞懏鈻婄紓鍌欑劍椤ㄥ懘鎯岄崒鐐靛祦閹兼番鍔岄悞鍨亜閹烘垵顏╅悗姘槹閵囧嫰寮介妸褎鍣ョ紓浣筋嚙濡繈寮婚悢纰辨晣鐟滃秹鎮橀懠顒傜＜閺夊牄鍔庣粻鐐烘煛鐏炶姤鍠橀柡浣瑰姍瀹曠喖顢橀悩铏钒闂備浇宕垫慨鎶芥⒔瀹ュ鍨傞柦妯猴級閿濆绀嬫い鏍ㄧ☉濞堟粓姊虹涵鍛【妞ゎ偅娲熼崺鈧い鎺嗗亾闁挎洩濡囧Σ鎰板籍閸繄顓洪梺缁樺姇瀵剙螖閸涱喚鍘搁梺鍓插亽閸嬪嫰鎮橀敃鍌涚厱閻庯綆鍋嗘晶顒傜磼閸屾稑绗ч柟鐟板閹煎湱鎲撮崟闈涙櫏闂傚倷绀侀幖顐も偓姘卞厴瀹曞綊鏌嗗鍛紱閻庡箍鍎遍ˇ浼村磿瀹ュ鐓曢柡鍥ュ妼婢ь垰霉閻樿秮顏堟箒闂佹寧绻傚Λ妤呭煝閺囥垺鐓冪憸婊堝礈濮樿泛钃熼柕濞у嫷鍋ㄩ梺缁樺姇椤曨參鍩㈤弴銏″€甸柨婵嗗€瑰▍鍥ㄣ亜韫囨稐鎲鹃柡灞炬礋瀹曢亶顢橀悢濂変紦

重磅专题

往期文章

VB应用程序访问SQL Server方法探讨

业界热点: